home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 232_01 / smalltal.st < prev    next >
Encoding:
Text File  |  1987-06-15  |  640 b   |  38 lines
  1. Class Smalltalk :Dictionary
  2. [
  3.     clearScreen
  4.         <Clear>
  5. |
  6.     date
  7.         ^ <CurrentTime >
  8. |
  9.     debug: n
  10.         ^ <Debug 2 n>
  11. |
  12.     display
  13.         ^ <Debug 1 1>
  14. |
  15.     displayAssign
  16.         ^ <Debug 1 2>
  17. |
  18.     doPrimitive: primNumber withArguments: argArray
  19.         ^ <DoPrimitive primNumber argArray>
  20. |
  21.     getString
  22.         ^ <primitive 163>
  23. |
  24.     noDisplay
  25.         ^ <Debug 1 0>
  26. |
  27.     perform: aMessage withArguments: argArray
  28.         ^ <Perform argArray aMessage >
  29. |
  30.     sh: command
  31.         ^ <System command >
  32. |
  33.     time: aBlock        | start |
  34.         start <- <TimeCounter>.
  35.         aBlock value.
  36.         ^ <TimeCounter> - start
  37. ]
  38.